home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD023d.dsk / AMPER CHART DEMO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  5KB  |  42 lines
  1. 1  REM "<CTRL-M><CTRL-M>      -=< AMPER CHART DEMO >=-<CTRL-M><CTRL-M>      BY C.R.J.  DATE:07/13/83<CTRL-M><CTRL-M>
  2. 10  CALL  PEEK(175) + PEEK(176) *256 -46
  3. 15  & "SPLIT",0: & "SPLIT",3
  4. 20  SPEED= 255: NORMAL : PRINT  CHR$(21);: PR# 0: TEXT : HOME :M$ =  CHR$(13):T$ = M$ +M$:FS =  -16302: ONERR  GOTO 60
  5. 30  & "RESET ERR",253
  6. 40  GOTO 90
  7. 50  TEXT : NORMAL : VTAB 24: HTAB 10: PRINT "ONE MOMENT PLEASE...";: SPEED= 254: VTAB 20: & "RESET BOOT": & "RUN","DEMO MENU"
  8. 60  & "ERR",N,L: IF N = 255  OR N = 253  THEN 50: REM "IF CTRL-C OR RESET
  9. 70  VTAB 23: HTAB 1: INVERSE : & "ERR MSSG": NORMAL : PRINT "  PRESS <RETURN>";: & "GET"A$ IF  CHR$(13);: HTAB 1: CALL  -958: GOTO 50
  10. 90  TEXT : HOME :M$ =  CHR$(13):T$ = M$ +M$:SP$ = "                                        ":Q$ =  CHR$(34)
  11. 100  INVERSE : VTAB 2: HTAB 9: PRINT "                      ": HTAB 9: PRINT "     AMPER CHART      ": HTAB 9: PRINT "                      ": NORMAL 
  12. 110  FOR X = 1 TO 11: READ P,D: & "BEEP",P,D *1.25: NEXT X: & "WAIT",1.5
  13. 120  DATA 47,5,0,5,37,15,0,5,47,5,0,10,63,5,0,5,37,15,0,5,31,7: REM " 1(C) 3(E) 1(C) 1(LO G) 3(E) 1(HI G)
  14. 150  PRINT M$:A$ = "AMPERCHART IS AN EXTREMELY POWERFUL GRAPHICS PLOTTING AND CHARTING PACKAGE DESIGNED TO ENHANCE THE GRAPHICS CAPABILITIES OF YOUR APPLE.": & "PRT",A$: GOSUB 8400: & "WAIT",10
  15. 160  PRINT M$:A$ = "IT CONSISTS OF 27 COMMANDS THAT WILL HELP YOU USE HI-RES GRAPHICS TO DISPLAY YOUR DATA FROM WITHIN YOUR APPLESOFT PROGRAM.": & "PRT",A$: GOSUB 8400: & "WAIT",10
  16. 170  PRINT M$:A$ = "THESE 27 COMMANDS ACT AS A GRAPHIC EXTENSION TO THE SET OF COMMANDS IN APPLESOFT BASIC.": & "PRT",A$: GOSUB 8400
  17. 190  & "WAIT",10
  18. 200  HOME : GOSUB 8600: HTAB 15: INVERSE : PRINT "AMPER CHART": NORMAL : PRINT M$:A$ = "AMPERCHART'S SIMPLE TO USE COMMANDS WILL GIVE YOU THE BUILDING BLOCKS YOU NEED TO DESIGN WHATEVER PLOTS OR CHARTS YOU WANT FOR YOUR APPLICATION.": & "PRT",A$: & "WAIT",10
  19. 210  PRINT M$:A$ = "AMPERCHART LETS YOU USE YOUR OWN COORDINATES, INSTEAD OF THE APPLE'S COORDINATES, SO THAT YOU DON'T HAVE TO ADJUST YOUR DATA TO 0-279 AND 0-191.": & "PRT",A$: GOSUB 8400: & "WAIT",10
  20. 220  PRINT M$:A$ = "AMPERCHART CAN HELP YOU EASILY MAKE PLOTS LIKE THESE...": & "PRT",A$: GOSUB 8400: & "WAIT",8
  21. 700  GOSUB 8600: HGR : POKE  -16302,0: HCOLOR= 7: HPLOT 0,0: CALL  -3082: REM "CLEAR HIRES SCREEN TO MOST RECENT COLOR
  22. 720  FOR X = 1 TO 5: READ A$: & "SLOAD",A$: & "BEEP",29,15: & "BEEP",39,15: & "WAIT",10: NEXT X
  23. 730  TEXT 
  24. 750  DATA "PIC.AMPERCHART DEMO","PIC.LINE GRAPH","PIC.BAR CHART","PIC.CHAPMAN","PIC.PIE CHART"
  25. 800  HOME : GOSUB 8600: HTAB 15: INVERSE : PRINT "AMPER CHART": NORMAL : PRINT M$
  26. 810 A$ = "JUST A FEW OF AMPERCHART'S CAPABILITIES INCLUDE LINEAR SCALING, LOG SCALING, CLIPPING (PLOTTING ON ONLY ONE AREA OF THE SCREEN AT A TIME), AND 3D-2D TRANSFORMS.": & "PRT",A$: & "WAIT",12
  27. 820  PRINT M$:A$ = "COMMANDS ARE AVAILABLE FOR THE GENERATION OF AXES WITH TIC MARKS AND GRID LINES, AND YOU CAN PUT HORIZONTAL AND VERTICAL ALPHANUMERIC LABELS ANYWHERE YOU WANT ON THE SCREEN.": & "PRT",A$: GOSUB 8400
  28. 850  & "WAIT",12
  29. 900  HOME : GOSUB 8600: HTAB 15: INVERSE : PRINT "AMPER CHART": NORMAL : PRINT M$:A$ = "THE FOLLOWING ROUTINES ARE INCLUDED WITH 'AMPER CHART':": & "PRT",A$: PRINT : & "WAIT",5
  30. 910  FOR X = 1 TO 24:P = X -2 * INT((X -1)/2) -1: HTAB P *20 +1: READ A$: PRINT A$ MID$ ( CHR$(13),1,P = 1);: & "BEEP",15,1: NEXT X
  31. 920  & "WAIT",15: GOSUB 8400
  32. 930  GOTO 50
  33. 950  DATA "FAST HIRES LOAD","ZOOM/UNZOOM","FAST HIRES SAVE","AREA FILL","AXES GENERATION","VERT LABELS","ARC GENERATION","HORIZ LABELS","CLIPPING WINDOWS","WINDOW FRAME","WINDOW REVERSE","WINDOW CLEAR","GRID PATTERNS","FP SPLITTER"
  34. 960  DATA "MEDIAN FILTER","PIE CHARTS","WORK PAGE SELECT","POLAR CHARTS","FULL USER SCALING","PAGE DISPLAY","32-2D TRANSFORM","LOG SCALING","EPSON SCREEN DUMP","TIC MARKS"
  35. 8000 H =  PEEK(36) +1: FOR X = 0 TO  LEN(A$): HTAB H: PRINT  MID$ (A$,1,X);: & "BEEP",255 *  NOT   NOT X,1: INVERSE : PRINT  MID$ (" ",1,X < > LEN(A$));: NORMAL : & "WAIT",.1: NEXT X: HTAB H + LEN(A$): RETURN 
  36. 8100  TEXT : & "WINDOW",U,D,L,R: INVERSE : FOR V = U TO D: VTAB V: HTAB 1: PRINT  MID$ (SP$,1,R -(D = V) -L +1);: NEXT V: POKE ( PEEK(40) + PEEK(41) *256) + PEEK(36),32: & "WINDOW",U +1,D -1,L +1,R -1: VTAB U +1: HTAB 1: RETURN 
  37. 8200  TEXT : & "WINDOW",U +1,D -1,L +1,R -1: INVERSE : VTAB V2: HTAB H2: RETURN 
  38. 8300 V2 =  PEEK(37) +1:H2 =  PEEK(36) +1: CALL  -1220: VTAB V2: NORMAL : RETURN 
  39. 8400  & "BEEP",23,5: RETURN 
  40. 8500  & "BEEP",33,5: RETURN 
  41. 8600  & "BEEP",23,5: & "BEEP",0,5: & "BEEP",33,5: RETURN 
  42. 8700  FOR X1 = 1 TO W: & "SCROLL 4X","D": FOR X2 = 1 TO 5: NEXT X2: NEXT X1: VTAB 1: HTAB 1: RETURN